home *** CD-ROM | disk | FTP | other *** search
Text File | 1990-06-24 | 859 b | 55 lines | [TEXT/MPS ] |
- {**********************************************************************
- {*
- {* Teach uMenu -- Version 3.0 (interface)
- {*
- {* Copyright (c)
- {* Apple Computer, Inc. 1986-1990
- {* All Rights Reserved.
- {*
- {* Developer Technical Support Apple II Sample Code
- {*
- {* This file contains the interface to the code which implements
- {* menus in the Teach program.
- {*
- {**********************************************************************}
-
- UNIT uMenu;
-
- INTERFACE
-
- USES
- types,
- locator,
- quickdraw,
- fonts,
- INTMATH,
- events,
- controls,
- windows,
- dialogs,
- menus,
- desk,
- STDFILE,
- GSOS,
- Resources,
- TextEdit,
- memory,
-
- uGlobals,
- uUtils,
- uWindow;
-
-
- procedure doMenu; {Execute a menu item}
- procedure setUpMenus; {Install menus and redraw menu bar}
-
-
-
-
-
- IMPLEMENTATION
-
- {$i uMenu.inc.p }
-
- END.
-